#!/usr/bin/perl
use IO::Socket::INET;
my $sk = IO::Socket::INET->new(
		PeerAddr =>  "kodiak",
		PeerPort=> "80",
		Proto=>"tcp"
	) or die "Can not connect on server!\n";
$sk->autoflush(1);
print $sk "HEAD / HTTP/1.1\n";
print $sk "Host: kodiak\n";
print $sk "User-Agent: " . $ARGV[0] . "\n";
sleep(1);
exit 0;
